home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update14.zoo / pml / diffs
Encoding:
Text File  |  1992-01-15  |  3.7 KB  |  164 lines
  1. *** 1.8    1991/07/23 22:44:46
  2. --- Changelog    1992/01/14 19:39:01
  3. ***************
  4. *** 90,92 ****
  5. --- 90,107 ----
  6.   math.h:: ++jrb
  7.       add proto for hypot
  8.   ---------------------------- Patchlevel 12 ------------------------------
  9. + 
  10. + math.h:: ++jrb
  11. +     make the exception structure more "unix like". use the same values
  12. + for exception types (this only helps portability).
  13. + 
  14. + atan2.c:: ++jrb
  15. +     use the second arg in the exception struct now that we have it.
  16. + 
  17. + sign.c:: ++jrb
  18. +     was copy the wrong sign when second arg was 0. reported by michael ritzert.
  19. + 
  20. + dabs.c:: ++jrb
  21. +     make the asm code conditional on (m68k && GNUC), not just GNUC
  22. + 
  23. + ---------------------------- Patchlevel 13 ------------------------------
  24. *** 1.5    1991/07/23 22:44:46
  25. --- Makefile.tos    1992/01/14 19:39:01
  26. ***************
  27. *** 26,32 ****
  28.   
  29.   install : $(ALL)
  30.       cp pml16.olb pml.olb $(CROSSLIB)
  31. !     cp pmluser.h $(CROSSINC)
  32.   
  33.   install020 : pml16020.olb pml020.olb
  34.       cp pml16020.olb pml020.olb $(CROSSLIB)
  35. --- 26,32 ----
  36.   
  37.   install : $(ALL)
  38.       cp pml16.olb pml.olb $(CROSSLIB)
  39. !     cp math.h $(CROSSINC)
  40.   
  41.   install020 : pml16020.olb pml020.olb
  42.       cp pml16020.olb pml020.olb $(CROSSLIB)
  43. *** 1.9    1991/07/23 22:44:46
  44. --- PatchLevel.h    1992/01/14 19:39:02
  45. ***************
  46. *** 1,5 ****
  47.   /*
  48. !  *    PatchLevel: 12
  49.    *
  50.    *    the Patch Level above is to identify the version
  51.    *    of the all the files in this directory. given the above
  52. --- 1,5 ----
  53.   /*
  54. !  *    PatchLevel: 13
  55.    *
  56.    *    the Patch Level above is to identify the version
  57.    *    of the all the files in this directory. given the above
  58. *** 1.5    1991/05/23 15:23:34
  59. --- atan2.c    1992/01/14 19:39:03
  60. ***************
  61. *** 108,113 ****
  62. --- 108,114 ----
  63.           xcpt.type = DOMAIN;
  64.           xcpt.name = funcname;
  65.           xcpt.arg1 = x;
  66. +         xcpt.arg2 = y;
  67.           xcpt.retval = result;
  68.           if (!matherr(&xcpt)) {
  69.           fprintf (stderr, "%s: DOMAIN error\n", funcname);
  70. *** 1.4    1991/05/23 15:23:34
  71. --- dabs.c    1992/01/14 19:39:06
  72. ***************
  73. *** 68,74 ****
  74.   static char funcname[] = "dabs";
  75.   
  76.   
  77. ! #ifdef __GNUC__
  78.   asm(".text; .even; .globl _fabs; _fabs:"); /* dept of dirty tricks */
  79.   #endif
  80.   
  81. --- 68,74 ----
  82.   static char funcname[] = "dabs";
  83.   
  84.   
  85. ! #if defined(m68k) && defined(__GNUC__)
  86.   asm(".text; .even; .globl _fabs; _fabs:"); /* dept of dirty tricks */
  87.   #endif
  88.   
  89. ***************
  90. *** 92,98 ****
  91.   }
  92.   
  93.   
  94. ! #ifndef __GNUC__
  95.   double fabs (x)
  96.   double x;
  97.   {
  98. --- 92,98 ----
  99.   }
  100.   
  101.   
  102. ! #if !(defined(m68k) && defined(__GNUC__))
  103.   double fabs (x)
  104.   double x;
  105.   {
  106. *** 1.10    1991/07/23 22:44:46
  107. --- math.h    1992/01/14 19:39:07
  108. ***************
  109. *** 55,66 ****
  110.   } COMPLEX;
  111.   
  112.   /* exceptions ++jrb */
  113. ! typedef enum  { DOMAIN, OVERFLOW, UNDERFLOW, PLOSS, SING } exception_type;
  114.   
  115.   struct exception {
  116.       exception_type    type;    /* exception type */
  117.       char        *name;    /* function in which it occured */
  118.       double        arg1;    /* an arg */
  119.       double        retval; /* val to return */
  120.   };
  121.   
  122. --- 55,74 ----
  123.   } COMPLEX;
  124.   
  125.   /* exceptions ++jrb */
  126. ! typedef enum  {
  127. !     DOMAIN      = 1,
  128. !     SING        = 2,
  129. !     OVERFLOW    = 3,
  130. !     UNDERFLOW   = 4,
  131. !     TLOSS       = 5,
  132. !     PLOSS       = 6
  133. ! } exception_type;
  134.   
  135.   struct exception {
  136.       exception_type    type;    /* exception type */
  137.       char        *name;    /* function in which it occured */
  138.       double        arg1;    /* an arg */
  139. +     double        arg2;    /* another arg */
  140.       double        retval; /* val to return */
  141.   };
  142.   
  143. *** 1.5    1991/05/23 15:23:34
  144. --- sign.c    1992/01/14 19:39:08
  145. ***************
  146. *** 60,67 ****
  147.       
  148.       ENTER ("copysign");
  149.       DEBUG4 ("copysignin", "args %le %le", x, y);
  150. !     if (x > 0.0) {
  151. !     if (y > 0.0) {
  152.           rtnval = x;
  153.       } else {
  154.           rtnval = -x;
  155. --- 60,67 ----
  156.       
  157.       ENTER ("copysign");
  158.       DEBUG4 ("copysignin", "args %le %le", x, y);
  159. !     if (x >= 0.0) {
  160. !     if (y >= 0.0) {
  161.           rtnval = x;
  162.       } else {
  163.           rtnval = -x;
  164.